Set Up
For our analisys we need the folowing packages to be installed.
#install.packages("ggplot2")
#install.packages("dplyr")
#install.packages("tidyr")
#install.packages("scales")
#install.packages("plotly")
Once packages installed we load it.
library(ggplot2)
library(dplyr)
library(tidyr)
library(scales)
library(plotly)
Setting up the workspace.
Now we gonna load the main data, which is about the deputies expenses.
It is important to know how much money is expende along the months, for that reason we will se it through the graphic.
First we need to create two new column which represents the year of the expense and its month
expenses_by_month <- data %>%
mutate(yar = substr(dataEmissao, 1, 4)) %>%
mutate(month = substr(dataEmissao, 6, 7))
Error in data %>% mutate(yar = substr(dataEmissao, 1, 4)) %>% mutate(month = substr(dataEmissao, :
não foi possível encontrar a função "%>%<-"
Once the column are created we will agroup and sum all values expend in each month.
expenses_by_month <- data %>%
group_by(year, month) %>%
filter(valorLíquido >= 0) %>%
summarise(expense = sum(valorLíquido))
Error in grouped_df_impl(data, unname(vars), drop) :
Column `year` is unknown
Lets see the expense in a graphic.

LS0tCnRpdGxlOiAiRGVwdXRpZXMgRXhwZW5kaXR1cmUgQW5hbHlzaXM6IE15IFF1ZXN0aW9ucyIKYXV0aG9yOiAiSm9zZSBNYW5vZWwgRmVycmVpcmEiCm91dHB1dDogaHRtbF9ub3RlYm9vawoKLS0tCgojSW50cm9kdWN0aW9uCgo8cD4KICBUaGUgcHJlc2VudCB3b3JrIGlzIGEgY29udGludWF0aW9uIG9mIGh0dHBzOi8vcnB1YnMuY29tL21hbm9lbGYvNDE2NzUwCiAgSGVyZSB3ZSBhcmUgZ29pbmcgdG8gY3JlYXRlIG5ldyBxdWVzdGlvbnMgYW5kIGFuc3dlciBpdCB0aHJvdWdoIHRoZSBkYXRhIGFuYWx5c2lzLiBUaGUgZGF0YSBhYm91dCBkZXB1dGllcyBleHBlbnNlcyBpcyBsb2NhdGVkIHJpZ2h0IGhlcmUgaHR0cHM6Ly9jYW52YXMuaW5zdHJ1Y3R1cmUuY29tL2NvdXJzZXMvMTQwMjc1OC9maWxlcy82NzYxODg4OC9kb3dubG9hZD92ZXJpZmllcj1pYnlvdTVQWW85YWFGZ1JhZWZjMGtlWWtIaGtRMkVxSUFyZG1JMWJxJndyYXA9MSBhbmQgbW9yZSBpbmZvcm1hdGlvbnMgYWJvdXQgeW91IGNhbiBmaW5kIGluICBodHRwOi8vd3d3Mi5jYW1hcmEubGVnLmJyL3RyYW5zcGFyZW5jaWEvYWNlc3NvLWEtaW5mb3JtYWNhby9jb3B5X29mX3Blcmd1bnRhcy1mcmVxdWVudGVzL2NvdGEtcGFyYS1vLWV4ZXJjaWNpby1kYS1hdGl2aWRhZGUtcGFybGFtZW50YXIKPC9wPgoKL1RPRE86IFNob3VsZCB0YWxrIGhlcmUgYWJvdXQgdGhlIGRhdGEsIHdoYXQgZG9lcyBtZWFuIHRoZSB2YXJpYWJsZXMgYW5kIHNvIG9uLgoKI1NldCBVcAoKRm9yIG91ciBhbmFsaXN5cyB3ZSBuZWVkIHRoZSBmb2xvd2luZyBwYWNrYWdlcyB0byBiZSBpbnN0YWxsZWQuCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQojaW5zdGFsbC5wYWNrYWdlcygiZHBseXIiKQojaW5zdGFsbC5wYWNrYWdlcygidGlkeXIiKQojaW5zdGFsbC5wYWNrYWdlcygic2NhbGVzIikKI2luc3RhbGwucGFja2FnZXMoInBsb3RseSIpCmBgYAoKT25jZSBwYWNrYWdlcyBpbnN0YWxsZWQgd2UgbG9hZCBpdC4KCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkodGlkeXIpCmxpYnJhcnkoc2NhbGVzKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgpTZXR0aW5nIHVwIHRoZSB3b3Jrc3BhY2UuCgpgYGB7cn0Kc2V0d2QoIn4vZ2l0L2RhdGEtYW5hbHlzaXMvbGFiMDEtMi8iKQpgYGAKCk5vdyB3ZSBnb25uYSBsb2FkIHRoZSBtYWluIGRhdGEsIHdoaWNoIGlzIGFib3V0IHRoZSBkZXB1dGllcyBleHBlbnNlcy4KCmBgYHtyfQpkYXRhIDwtIHJlYWQuY3N2KCgiL2hvbWUvam9zZW1zZi9Eb3dubG9hZHMvZGFkb3NDRUFQLmNzdiIpKQpgYGAKCiMjIEl0IGlzIGltcG9ydGFudCB0byBrbm93IGhvdyBtdWNoIG1vbmV5IGlzIGV4cGVuZGUgYWxvbmcgdGhlIG1vbnRocywgZm9yIHRoYXQgcmVhc29uIHdlIHdpbGwgc2UgaXQgdGhyb3VnaCB0aGUgZ3JhcGhpYy4KCkZpcnN0IHdlIG5lZWQgdG8gY3JlYXRlIHR3byBuZXcgY29sdW1uIHdoaWNoIHJlcHJlc2VudHMgdGhlIHllYXIgb2YgdGhlIGV4cGVuc2UgYW5kIGl0cyBtb250aAoKYGBge3J9CmV4cGVuc2VzX2J5X21vbnRoIDwtIGRhdGEgJT4lCiAgbXV0YXRlKHllYXIgPSBzdWJzdHIoZGF0YUVtaXNzYW8sIDEsIDQpKSAlPiUKICBtdXRhdGUobW9udGggPSBzdWJzdHIoZGF0YUVtaXNzYW8sIDYsIDcpKQogIApgYGAKCk9uY2UgdGhlIGNvbHVtbiBhcmUgY3JlYXRlZCB3ZSB3aWxsIGFncm91cCBhbmQgc3VtIGFsbCB2YWx1ZXMgZXhwZW5kIGluIGVhY2ggbW9udGguCgpgYGB7cn0KZXhwZW5zZXNfYnlfbW9udGggPC0gZXhwZW5zZXNfYnlfbW9udGggJT4lCiAgZ3JvdXBfYnkoeWVhciwgbW9udGgpICU+JQogIGZpbHRlcih2YWxvckzDrXF1aWRvID49IDApICU+JQogIHN1bW1hcmlzZShleHBlbnNlID0gc3VtKHZhbG9yTMOtcXVpZG8pKQpgYGAKCkxldHMgc2VlIHRoZSBleHBlbnNlIGluIGEgZ3JhcGhpYy4KCgpgYGB7cn0KZXhwZW5zZXNfYnlfbW9udGggJT4lCiAgIHBsb3RfbHkoeD0gfm1vbnRoLCB5PSB+ZXhwZW5zZSx0eXBlPSAic2NhdHRlciIsIG1vZGU9ICJsaW5lcyttYXJrZXJzIikgJT4lCiAgbGF5b3V0KHRpdGxlPSJFeHBlbnNlcyBieSBtb250aHMiLCAKICAgICAgICAgeGF4aXM9bGlzdCh0aXRsZT0iTW9udGhzIiwgcmFuZ2U9IGMoMCwxMCkpLCAKICAgICAgICAgeWF4aXM9bGlzdCh0aXRsZT0iVmFsdWUgRXhwZW5kZWQgaW4gUlMiKSwgYmFybW9kZT0ic3RhY2siKQoKcGxvdChleHBlbnNlc19ieV9tb250aCwgeWVhcn5tb250aCAsIHR5cGU9Im1vbnRoIiAsIGJ0eT0ibCIgLCB4bGFiPSJ2YWx1ZSBvZiBhIiAsIHlsYWI9InZhbHVlIG9mIGIiICwgY29sPXJnYigwLjIsMC40LDAuMSwwLjcpICwgbHdkPTMgLCBwY2g9MTcgLCB5bGltPWMoMSw1KSApCmxpbmVzKGV4cGVuc2Ugfm1vbnRoICwgY29sPXJnYigwLjgsMC40LDAuMSwwLjcpICwgbHdkPTMgLCBwY2g9MTkgLCB0eXBlPSJtb250aCIgKQogCgpgYGAKYGBge3J9CmV4cGVuc2VzX2J5X21vbnRoICU+JSBuYS5vbWl0KCkgJT4lIApnZ3Bsb3QoYWVzKHggPSBtb250aCwgeSA9IGV4cGVuc2UsIGNvbG9yPXllYXIsIGdyb3VwID0geWVhcikpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzID0gY29tbWEpICsKICBnZW9tX3BvaW50KCkgKwogIGdlb21fbGluZSgpCiAgCmBgYAoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg==